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SBEGIN RMINXTBLK,000,RMSRMS1,<GET NEXT BLOCK FOR SEQUENTIAL FILE ORG>,- 
<NOWRT ,QUAD> 


MARABRAARARAAASAAASLASAALAALASSSALELASASSE SEER SERRE EERE ERE RE RE REESE ESE E SE EEE CESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED ae A ‘a AND MAY BE USED AND COPIED 
ONLY IN RE WITH THE TERMS SUCH bie ENSE AND WITH THE 
INCLUSION OF THE ABOVE corre NOTICE. THIS SOFTWARE OR ANY OTHER 
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-* & 
*® a 
-* % 
:* ~ 
-* oy 
se €¢ a 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. ° 
** ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
** — 
*® ay 
*® * 
*® 2 
** te 
-* e 
** * 
** * 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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9 ;++ 
09 9 : Facility: RMS32 
9 i ; Abstract: | 
: this module performs get next block processing 
0 ¢ ; for the sequential file organization. 
0 § : Environment: 
4 M ; star processor running starlet exec. | 
009 th ; Author: L F Laverdure, creation date: 3-FEB-1977 | 
$0 41 3 Modified By: | 
00 tg : 
000 43 ; V03-004 JwT0167 Jim Teague 15-Mar-1984 
0000 rk: ; Redo buffer offset implementation. 
000 46 : V03-003 KBT0415 Keith 8. Thomps 30-Nov-1982 | 
8000 tf ; Change ifb$w_ devbutsiz to ifb { “deveutetz | 
0000 «449: v03-002 KBT0141 Keith B. Thompson 20-Aug-1982 
4 20 ; Reorganize pects 
0000 26 : v03-001 KBT0088 Keith B. Thompson 13-Jul-1982 
8008 7 : Clean up psects 
0000 «55: V02-023 REFORMAT Keith B. Thompson. 29-Jul-1980 
0000 2$ ; 
0000 7 
0000 58 
0000 59 
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++ 
notes on the multi-block buffering scheme 


this routine soy"! multiple blocks to be read together 
(as specified by mbc) but returned one at a time for 
processing by the calling routines. 


assumptions: 


1. mbc is never > 0 except for disk(= # vbn's = 1) 

2. records are always written at eof (only updates 
may occur elsewhere in the file). 

3. all sequential i/o calls go thru one of the 
panto wing fo rows’ nes: 


RaSUTLeTt 
RMSRELBLK1 
4. there is no write sharing for sequential files. 
5. a direct release will be done only when there 
is no i/o for the buffer. 


bdb field usage: 
BOBSL 4 = vbn of first block in buffer 


1. 
ef coResC P_VBN = vbn of current block) 
‘ 8 REL VBN = current vbn rel to start vbn for buffer 
Re atthe “VAL_VBNS = # of valid vbns in buffer 
5. BDBSB-FLGS: 


-BDBSV_DRT:all blocks up to the greater of the current vbn 
and the number of val_vbns are dirty 
-BDB$V_VAL:the current vbn is valid 


6. the relative vbn = requested vbn - start vbn 
7. current block buffer addr = buff addr + REL _VBN*512) 
8. bdb$Sw_numb = # bytes in current block 
on reads = min(# blocks desired, finesse MBC+1)) * 512 
on writes = (max(VAL_VBN,REL _VBN+1))* 1 
9. requested vbn is in buffer if its REL_VBN < VAL_VBNS 
(VAL_VBNS will be recalculated from REL VBN if some val bit is on 
for Calls to RMSNXTBLK1 and RMSGETBLKNRP) 
10. if read required and REL_VBN < VAL_ VBNS ok, 
else release buffer and reread” 
11. on release (RMSRELBLK1) if BDBSV_VAL is off and the 
BDBSV_DRT bit is set, merel doc Fenent the 
cone gh and set the valid bit 


SOOSCOCOSCCOOSCOOCOCOOOOOOSOSOSOSOSOOSOSOSOSOOSOSOOOCOSOSOOSOOOOOOOOOOOoOSoSO Fx 
SOOOCOOCOCOCOOOOOOCOOCOOCOOSOSOOOOOSOOOOCOOCO OOOO OOOOOSOOOOOOOOOoOO --, 
SOOCOOCCOCOCOCOOCOSOSO COC SCOSCCOCOCOOSOSOOOOOOCOOCOCOOOOOOOOOOOoOO 
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-SBTTL RMSNXTBLK1 = GET NEXT BLOCK SEQUENTIAL ROUTINE 


+ 
+ 


RMSNXTBLK1 
RMSGETBLKNRP = 
GETBLK1 
GETBLKIALT- 
RMSMAPBLK1 == 


this routine iocates the next block of a sequential file, 
reading it if necessary, and updating the appropriate fields 
in the irab and BDB. 


Calling sequence: 


there are six entry points: 


BSBW RMSNXTBLK1 
BSBW RMSGE TBLKNRP 
GETBLK1 


L 
BSBW GETBLKIALT 
BSBW RMSMAPBLK1 


return the next block | 

return the block specified by nrp 
return the block specified by r1 
read record for unit record device 
(note: r2=size of buffer) 

set start and end 

address for current 

block of BDB whose 

address is in r4 


Input Parameters: 


R11 impure area addr 

R10 ifab r 

R9 irab addr 

R8 rab addr 

R4 BDB addr (entry at RMS$MAPBLK1 only) J 

R3 option to avoid read if bit 0 set (not input to RMSMAPBLK1) 
option to do short disk read if bit 1 set ; 

R2 # of blocks to read minus 1 fealy if bit 1 set in r3) 

R1 vbn to read (entry at GETBLK1 only) 


Implicit Inputs: 
the various fields of the ifab, irab, and associated BDB. 
Output Parameters: 


SOOCOSCCCOOSOOOCOSOSOOOSOOOOSOOSOOOCOSOOOSOSOOSOSOSOOSOOOOOOOSOSOSSOSO — 


OOoOoooooooooooooooooooooooooocoooooSoo OoOooooo @ 
SOCOCCOOOCOCOSOCOSCOCOSOCSOOSOSOSOSOSSOSSOSOSOSSOOSCSOOCOOCOCOCOOOCOOOOOOOOOOOOOOOO 
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R7 addr of end of block buffer+1 
R4 addr of current bd 
R1 addr of current block in buffer 


RO status code (except for entry at any of the RMSMAPxxx entries) 
R2-R3 = destroyed (except for entry at any of the RMSMAPxxx entries) 


Implicit Outputs: 
various fields of the irab and associated BDB are updated. 


COOOOOCOCOCOCOOCOOOCOCOOCOCOSOSOOOOSOOOSOOOOOOCOCOOCOOCOCOOOOOCOOOCOOOCOOOCOOOOOOO + 
ec ee ee ee a ee ae a ce ce ce a a ca ce ed ca ee cr ce ec dd ce ca ee ee ee we ec a ec ee ee ee ed a ee ed a ed ee 
PWR [OOO NOAU EWN OOD NOA UE WIN 9 OD NAME WW 0 ODNOU SW OWOONOAOULS WH OOO 

TE TETETETETLTL ICTR IRIE SEILER IE IO CE SE EI IE IERIE IIE ILL 
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Completion Codes: 


+ bat 3 ae GET NEXT BLOCK FOR SEQUENTIAL FILE t ok Ter s6b= 1386 90:31:13 es cro 


a v04-00 Page 
RMSNXTBLK1 = GET NEXT BLOCK SEQU ATTAL R 5-SEP=1 RMS .SRC JRMINXTBLK 


NXTBLK.MAR;1 


standard rms. {on error, IRABSL_IOS & _10S4 have 
error informa 
if RMS_EOF, then IRBSV_EOF set. 

Side Effects: 


none 


fale lelelel a) 
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RMSNXTBLK1:: 
STSTPT NXTBLK1 


; get new value for NRP 


os 
° 10 
1] 
at 
40 AD 06 3 15 INCL IRBSL_NRP_VBN (R9) ; bump vbn 
44 09 BG bor 16 CLRW IRBSW_NRP_OFF (R9) 3 zero offset 
¢ 18; 
ee 19 ; entry to return block specified by nrp 
C & 
boot ¢ RMS$GETBLKNRP: : 
54 20 Ad 09 000C MOVL IRBSL_CURBDB(R9) ,R4 ; get BDB address 
58 1 4 : BEQL READAREAD :; branch if no current BDB 
001 6; 
Bat HA ; is the requested block already in the buffer? 
001 9° 
10 AG C3 0012 $5 SUBL3 BDBSL_VBN(R4),- 3; compute rel vbn 
51 40 a9 001 231 IRB$L_NRP_VBN(RY) ,R1 
51 51 #6 0018 538 CVTILB = R1,R ; mbc is at most 127 
46 1D 0018 3 BVS RELEASE 3 so branch if not in range 
001D 234 
001D 35 ; ; é 
0010 36 ; if read requested, must be within the valid count 
001D 37 ; otherwise, it need merely be within mbc 
001D $ 3 
001D 9 
Bate 40 ASSUME BDBSV_VAL EQ 0 
35 OA AG ED Base rf BLBC BDBSB_FLGS(R4) ,20$ ; branch if buffer not valid 
$031 548 ; 
6054 rf: ; recompute # valid blocks = max(VAL_VBNS,REL_VBN+1) 
0021 246° 
50 48 A4 01 81 0021 47 2$: ADDBS = #1,BDB$B_REL_VBN(R4),RO ; compute min. # valid vbns 
49 a6 50 91 99 6 248 CMPB RO.BDBSB-VAL-VBNS(R4S =; need to adjust # valid vbns? 
4 15 OQO2A 49 BLEQ ; branch if not 
49 AG 0 90 BS f 29 $s MOVB RO,BDB$B_VAL_VBNS(R4) ; set new value for # valid vbns 
030 38 7 
0 : 34 : check validity of desired block 
5 e 
49 a6 5191 p 35 CMPB sR}, BDB$B_VAL_VBNS(R4) =; is the block valid? 
16 1F 0034 38 BLSSu 108 > yes = go use it 
e8 1A 00 § 5 BGTRU RELEASE ; no - go release current bdb 
28 E9 3 ; $9 BLBC R5,RELEASE 3; branch if read required 
8 62 ; 
6 88 ; block desired is the ‘next’ block and it's for output. 


\ Nee — 
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3 : rt ; merely add it to the current buffer if < or = mbc. 
B 266° 
55S a9 551—t—«é@S#”’1 8 83 CMPB R1,1R + -MBC(R9) 3 will block ee in the buffer? 
22 «1A «O003F of BGTRU RELEASE ; branch if no 
041 § 
041 . 3 
041 71 ; check for auto extend required 
es 
40 AD D1 0041 74 CMPL IRBSL_NRP_VBN(R9) ,- ; is next block allocated? 
70 AA Bice 75 IFB$L_HBKTRI10) 
1B 1A 0046 76 BGTRU RELEASE ; branch if not, writing buffer 
0048 77 
0048 78 ; 
Ones 79 ; (mote: will allocate space below) 
boca 581 
01 8A 0048 6 BICB #1 aBDB$V_VAL : invalidate the buffer 
OA AG 004A 28 BDBSB_ FLGS(RG) . 
004C 84 
004C 85 ; g 
004C 86 ; (flags current blk as not yet valid) 
004C 287 ; 
0046C 288 
48 AG 8651 90 O004C 289 108: MOVB R1,BDB$B_REL_VBN(R4) 3; set new current rel vbn 
0050 4 RMSSU 3; show success 
0000 31 0053 91 BRW MAPBLK1ALT 


| oe, 
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IL 51:1 
RMSNXTBLK1 = GET NEXT BLOCK SEQUENT a 23:3 RMS.SRCIRMINXTBLK.MAR; 1 
a3 93 
94 ; 


buffer valid leg is off. 
y 


6 295: 
36 38 : if buffer is dirty decrement REL _VBN, set valid, & try for a hit. 
6 298 ° 
01 =«€1 is 38 20$: BBC #BDBSV_DRT ; branch if not dirty 
OA As 998 00 BDBSB FLGS(R4) = 
48 pe 4 0088 8 pece a) REL VBN(R4) ; adjust REL_VBN 
BE OA A4 006 Oe BDB$B “FLGS(R4) . 2s 3 set valid and branch 
Yo 
006 06 : 
06 07 : required block not in this buffer 
06 08 ; release current contents of buffer before reusing 
bogs 340 | 
0063 11 RELEASE: 
FF9A* 30 0063 \¢ SBW RMSRELBLK1 ; release the buffer 
01 50 33 ne i ty RO,READAHEAD 3 continue on success 
006A 15 READAHEAD: 
79 69. 2A €1 O06A 16 BBC #IRBSV_RAHWBH,(R9),80$ ; branch if rah not enabled 
76 53 E€8 OO6E 17 BLBS 3; branch if not a real read 
0071 318 ASSUME RABSC_SEQ EQ 0 
1—E AB 95 0071 19 TSTB RABS$B_RAC(R8) ; only do rah if rac=seq 
1 12 0074 320 BNEQ 80$ ; branch if not seq 
6D 68 29 #&2€E1 0076 21 BBC #RABSV_RAH+ROP,(R8),80$ ; branch if user dees not want rah 
ee 
007A $$¢ : all is go for read ahead so fire up as many as needed or possible 
OPA 326 ; 
54 DD OO7A 27 PUSHL R4 ; set last BDB for RAH Limit 
54 vA Be 445 e55 30s: se RNSSEOFLMKBDS oR4 ; get BDB for next RAH 
02 €0 0083 $5 : BBS DBSV ; branch if io in progress 
48 OA AG 0085 31 BDESE_FLGS (Rs) ,608 
6— d5 0088 3 28$ TSTL (SP) : first time call ? 
OE 12 OOB8A 3 BNEQ 0$ ; branch if no 
51 40 A9 DO 008C 34 MOVL bet ng NRP_VBN(R9) ,R1 ; start rah at NRP_VBN 
6—€ 3C A9 DO 0090 35 MOVL IRBSL_-NXTBDB(R9),(SP) ; set Last BDB for RAH Limit 
20 a9 = 6E-—séO 0094 ! MOVL (SP), TRBS$L_CURBDB(R9) =: set up CURBDB to pickup the 
0098 8 ; 
009 9 ; BDB for which this RAH will 
494 40 ; be issued (ie NXTBDB=CURBDB 
09 41 ; rah is for flnk of NXTBDB and 
009 XK; ; em$seqrd uses fink of CURBDB) 
MBE 
15 11. 009 45 BRB 0$ 
50 3C AD =s«éO0 bee ry 30$: MOVL IRBSL_NXTBDB(R9) ,RO : get BDB addr for Last RAH 
51 01 00 9E 4 MOVL #1,R1 ; assume 1 vbn xfer 
1¢ £1 OOAl 348 BBC #0EVSV_RND,- : branch if not disk 
06 6A 00A3 49 IFBSL_PRIM_DEV(R10) ,40$ 
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51 14A0 O07 O9_ EF ye 2 EXTZV #9,#7,BDB$W_NUMB(RO),R1 ; get # of vbn's in buffer 
OAB 5 3 
AB 535 ; (assumes 512 byte block size) 
dap 38S” 
51 i AO CO QOAB 2$ 40$: ADDL2 BDBSL_VBN(RO),R1 ; rl = start vbn for xfer 
52. 55 A9 QA OQOAF 57 50$: MOVZBL IRBSB_MBC(R9),R2 3; calc xfer size (mbc = # of 
52 06 O08 58 INCL R2 3; blocks = 1 so increment) 
52 48 AA C4 008 59 MULL2 IFBSL_DEVBUFSIZ(R10),R2 ; make bytes 
74 AA = 51 ~=2D1 =—00B9 60 CMPL R1,1FB$L_EBK(R10) 3; don't read past eof block 
¢ 1A QO0BD 61 BGTRU 70$ ; branch if start vbn past eof block 
FF5E* 30 OOBF 66 BSBW RMSSEQRAH 3; issue read ahead 
1F 50 =2«E9 ote 6 BLBC RO,70$ : branch if errors 
3c Ad 54 DO 6O00C 64 MOVL R4, IRB$L_NXTBDB(R9) ; update NXTBDB 
6— 54 D1 O0C9 65 CMPL R4, (SP) 3; reached Limit ? 
B2 12 O0CcC 66 BNEQ e5$ 3; branch if no 
14 ~=«11 pace of BRB 0$ ; otherwise exit rah loop 
48 AS 05 00D0 365 60$: TSTL BOBSL_IOSB(R4) ; we bumped into a whbh 
OF 13 0003 370 BEQL 3; branch if not done 
FF28" 30 ites $4 BSBW RM$STALLRAHWBH 3 otherwise process bdb 
v0D8 358 3 
00D8 374 ; (mote: does not stall) 
0008 375; 
0008 376 F 
0008 377 CSB #BDBS$V_IOP,- ; clear i/o in progress 
00D8 378 BDBS$B_FLGS(R4) : 
A&B 50 =E€8 O0DD arp BLBS RO,288 z; branch if all ok 
oe CO O0E0 80 ADDL2 4#4,SP ; pop stack 
05 et $8 RSB 3 and exit with wbe error 
04 CO OO0E4 385 70$: ADDL2 #4,SP ; pop Limit off stack 
51 40 A9 00 peed tne 80$: MOVL IRBSL_NRP_VBN(R9) ,R1 ; set block to read 
OOEB 386; ; 
OOEB 387 ; and .all into GETBLK!1 
OOEB 388 ; 
O0OEB 389 
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: entry to read specified block ri = vbn 


GETBLK1: 
compute size for xfer 
0653 O11 €1 BBC #1,R3,5$ ; branch unless flag indicates 


; a short read for random i/o 


55 a9 52 91 CMPB R2,12B$B_MBC(RI) : r2 < mbc? 
06 18 BLEQU ; branch if yes 
52 55 A9 9A 5$: MOVZBL IRBSB_MBC(R9) ,R2 : mbc = # blocks -1 
52 06 10$: INCL ; get # of blocks 
52 48 AA C4 MULL2 IFBSL_DEVBUFSIZ(R10),R2 ; and size in bytes 
3 entry point for unit record device read ( and foreign unblocked mt) 
GETBLKIALT: 
53. DD PUSHL R3 ; save flags 
FEFC’ 30 RASSEORD ; and go read the record 
08 BA POPR #* 
ASSUME <B0856, REL og i EQ BDBSB VAL_VBNS 
48 AG BG CLRW BOB$B_REL_VBN : reset relative vbn 
5D 50 =E9 BLBC RO ERRXFR™ ; 90 process error 
ic €1 BBC #oevs ranch if not disk 
oA TPest RIM DEV(RI0), - 
44 § E8 BLBS RS CHK_EXTEND ; branch if not reading 


SET_VBNS: 


"eee 


z mote: this code assumes that disk has a block size of 512 » tes 
3 number of valid blocks = # bytes xferred divided by 51 


EXTZV #9,#7,BDB$W_NUMB(R4) ,R1 ; get . of vbns xferred 


51 14 a4 07 99 
49 AG MOVB R1.BDB$B_VAC_VBNS(R4S =: set # valid blocks 


— 
som 
om 


betes 
SET _NUMB : 


MOVW IFBSL_DEVBUFSIZ(R10),- ; reset numb to blocksize 
BDBSW_NUMB(R4) 


— 


8 AA B0 
4 AG 


ok a hh 3S SS SS OOOO OOO SO SOSOOOSOSOOOOOSOSOOSOOO 


PDI a 8 I IOV 0 FF Fe Fe Fe PETE TU ET EFTECTICTICTICTI CPI CTICTICTICTICrICrirrierrie yy 


MOTT IO OTST QUIWNIWIWWIWWIIWIWNNINWI0 MMO OOH LS HHA HHNDOVIWT HHH HMOVOWOVOIOOVIVIIOw 
NOUS WN OOONOA UE WN 0 OO NOAUE WN $$ O OOO NA UE WW =O OD NOAUE WIN 9 OONOUE Wh 


fle ele lel el ele le lel al eleleleleleleleleleleleleleolelalelelelolelealeolel aloe ole el el ele el ele el ele el ele lo lal ola) 
BEEP EE PANNA AID IPOPONPIPINIPONDNIDY) 2 2 4 PP SS MPOOOOOCOOOCOCOCOWOOOOVOOOWOO 


Pe Oe we oe oe at at a tt ot a UMMM UUMAMUMUMUMUMUMUAMUMUAUMUAMHHterAAtNaaam ee 
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RMINXTBLK GET NEXT BLOCK FOR SEQUENTIAL FILE ORG 16-SEP-1 00:51:13 AX/VMS Macro Vv04-00 Pp 12 | 
v04-000 19be Seiosisy f ] age 18, 


RMSNXTBLK1 = GET NEXT BLOCK SEQUENTIAL R 5-SEP-1 RMS.SRCJRMINXTBLK.MAR; 1 1 
1 460 ; 
1 449 ; entry to set epi and end of current buffer addresses 
1 450 ; r4 = bdb addre 
1 451; 
1 126 
1 455 RMSMAPBLK1:: 
20 a9 «554 —Sti«=OOD } ¢ $22 MOVi R4, IRB$L_CURBDB(R9) 3; set current bdb | 
126 $28 3 ' DE 
126 457; entry to set beg edb? and end of current buffer addresses but without 
126 458 ; setting irb$l_curbdb to the bdb address in r4 ER 
8 6 459; FA 
126 ©6460 | FA 
4 6 461 MAPBLKIALT: FA 
51 48 AG QA 0126 186 MOVZBL BDBSB net VBN(R4) , R1 3 get current relative block FA 
05 £0 igh 46 #DEV ; branch if magtape FA 
6A 012C 464 IFBSL PRIM. DEV(R10), - FA 
23 012D 465 MTA | FA 
57 48 AA 00 QO! 3 466 MOVL IFBSL_DEVBUFSIZ(R10) ,R7 ; get Length of block | FA 
51 57 C4& Q1 467 MULL R7,R1- ; convert to buffer offset FA 
51 18 AS CO 9138 468 SETR1: ADDL BOBSL -ADDR(R4) ,R1 et buffer addr for block FA 
OOA8 CA B85 0139 469 TSTW 1FBSW- BUFFER OFF SET(RIO): s there a non-0 buffer offset? FA 
OA 13 0130 470 BEQLU NO_BUFF OFF ;_if not, branch around FA 
51 QOA8 CA AO O13F 471 ADDW IFB$W_BOFFER_OFFSET(R10),R1 ; add offset to buffer addr | FA 
57 QOAB CA A2 bles tig SUBW [FBSW_BUFFER_OFFSET(R10) ,R7 ; subtract from buff length | 4 
0149 474 NO_BUFF_OFF: FA 
40 AG «651 =O 20149) 475 MOVL R1,BDB$L_CURBUF ADR(R4) ; save current buffer address FC 
51 CO 0140 476 ADDL2 R1,R7 ; set ending address IF 
05 0150 477 EXIT: RSB ; and return | IF 
0151 478 IF 
0151 479 ; P : IF 
0151 480 ; set block size for magtape (it may have been a short block) IF 
0151 481; IF 
0151 rt IF 
57 14 A4 3C 0151 483 MTABLS: MOVZWL BDBSW_NUMB(R4) ,R7 ; set block size from # bytes read IF 
DE 11 0155 484 BRB SETR1 ; rejoin common code 14 
If 
OF 
OF 
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RMINXTBLK GET NEXT BLOCK FOR SEQUENTIAL FILE ORG 16-SEP-1984 00:51:13 VAX/VMS Macro v04-00 Page 13 | 
v04-000 RMSNXTBLK1 = GET NEXT BLOCK SEQUENTIAL R -$eE 1 984 93:35:33 CAMS SRCIRMINXTBLK MAR: 1 . (14). 
157 4 
157 4 5 : 
157 4 $ ; this is a ‘no read’’ request te get a buffer for a write operation). 
157 489 ; check for past — block and, if so, allocate the file space now, before 
157 490; the buffer is used. 
157 491 ; 
157 $36 
157. 493 CHK_EXTEND: 
70 AA C3 (0157) 494 SUBL3 = IFBSL_HBK(R10),- 3 cale # of blks past HBK 
52 1C AG 15A 495 BOBSL_VBN(R4) ,R2 
B 18 015D $38 BLEQU S51 NOME ; branch if not past HBK 
5 bp 15F 49 PUSHL ; save flags 
FE9C’ 30 0161 498 BSBW RMSAUTOEXTEND ; go do the extend 
9 BA 0164 499 POPR #*M<R3> ; restore flags 
B4 E8 0166 500 BLBS RO,SET_NUMB ; branch on success 
0169 501 
0169 206 ; 
0169 503; fall thru to handle error 
0169 288 ; 
0169 505 
0169 506 ; 
0169 507 ; RMSAUTOEXTEND or RMSSEQRD returned an error 
0169 508 ; check for eof error and if eof check for non-zero 
0169 509 ; xfer size, in which case return the partial buffer 
0169 510 ; 
0169 511 
0169 21§ ERRXFR 
827A 8F 50 B61 0169 51 CMPW RO, #RMS$_EOFS“XFFFF ; is error eof? 
28 12 016 514 BNEQ 108 ; branch if not | | 
OF Ad BO 017 515 MOVW IRB$W_IOS2(R9) ,- ; set xfer size in bdb 
14 AG 017 516 BDBSW_NUMB(R4) : 
14 13 0175 517 BEQL 5$ ; and branch if zero | 
0177 518 
0177 +519 ; 
0177 520 ; eof was seen but some data was transferred 
0177 521 ; compute the number of valid blocks 
0177 256 ; 
0177 +52 p 
01 88 0177 524 BISB #1aBDB$V_VAL,- 3; say buffer valid 
OA AG 0179 525 BDB$B_FLSS(R4) 
49 AG 96 O17B 526 INCB BDBSB_VAL_VBNS(R4) : say 1 block valid 
Q17E 527 RMSSUC ; indicate success 
55 a9 «695 «(0181 528 TSTB IRBSB_MBC(R9) ; multi-block buffer? 
o2 13 b18¢ 2 9 BEQL 1$ ; branch if not 
ge ae 
Rise 23 3 recompute # of valid blocks for disk (intergral # of blocks) 
186 Q 4 | 
ge 11 1 ; 5 BRB SET_VBNS 
FF9 31 1 § 1$: BRW RMSPAPBLK1 
bigs 3 
188 35 3; true eof 
1 aes 
01100004 8F 03 0188 542 5$: BITL  #DEVSM_TRM!DEVSM_MBX!DEVSM_FOR,- 
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RM INXTBLK GET NEXT BLOCK FOR SEQUENTIAL FILE ORG a" -SEP=-|984 00: 3 VAX/VMS Macro v04-00 Page 14. 
v04-000 RMSNXTBLK1 = GET NEXT BLOCK SEQUENTIAL ~SFEr i 962 98 £35; 4 RMS .SRCIJRMINXTBLK.MAR; 1 . (14). 
6A 191 543 FBS. a ete | 
4 12 13 rf: BNEQ 0$ ; don't Latch eof for terminal, 
194 rk 5 
194 47 ; mailbox, or foreign devices | 
194 48 ; 
194 49 
194 550 #IRBSV_EOF,(R9) ; else set eof flag 
01 88 198 22! 10$ PUSHR #*M<ROS 
FE63" 019A 26 BSBW pg)  ateel 3 flush all rah/wbh 
0350 €9 019D 55 BLBC RO,20$ 3 branch if wbe errors 
01 BA gia 222 POPR #*MA<RO> 
05 OIA 55 RSB 
02 BA OIA 556 208: POPR #*M<R1> ; get rid of saved status 
05 QO1A5S 557 RSB 3 and exit 
O1A6 «= 558 
01A6 = 559 ~ END 
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RMINXTBLK GET NEXT BLOCK FOR SEQUENTIAL Fie ORG Vg-SEP- 1986 0:51:13 AX/VMS Macro v04-00 
Symbol table =SEP=1984 16:23:31 (CRMS.SRCJRMINXTBLK.MAR; 1 
$$.PSECT EP = 6° 00 RMSSEQRD eeeeenee x 4 
SSRMSTEST = 3 1A RM$STALLRAHWBH aeeeeree =X 1 
SSRMS_PBUGCHK = 8 8 RMS$_EOF = 0001827A 
SSRMS_TBUGCHK = 0000000 ROP = 00000020 
$SRMS_UMOD = 00000 o SETR1 0135 R 01 
BDBSB_FL = QO00000A SET_NUMB 000011D R 01 
BDBS$B_REL_VBN = a SET-VBNS 0000113 R 4 
BDB$B_VAL- VBNS = 8000006 TPTSL_NXTBLK1 ateeerer =X 1 
BOBSL_ADD = 00000018 
BDBSL_CURBUF ADR PS 4 8 
BDBS$L_10S = 0000004 
BDBSL_VBN = 4 
BOBSV_DRT = 00 01 
BDB$V_10P s ae: 
BDBSV_VAL = 0000000 
BDB$wW_NUMB = 00000014 
CHK_ERTEND eae bEF4 R 01 
DEVSM_FOR = 01000000 
DEVSM_MBX = 00100000 
DEVSM_TRM = 00000004 
DEVSV_RND = 44944 9h 
DEVSY $QD = 0000000 
7 XFR 00000169 R 01 
00000150 R 01 
GETBL K1 QOOOOOEB R 01 
GETBLKIALT QOOOOOFF R 01 
IFBSL_DEVBUFS1Z = 00000048 
IFBSL =EBK = 00000074 
IFBSL— = 00000070 
IFBSt-P RIM = 00000000 
IF BSW “BUFFERS OFFSET = aaa 
IRBSB_MBC = 0000005 
IRB$L_CURBDB = 00000020 
IRB$L_NRP_VBN = 00000040 
IRB$L_NXTBDB = 0000003C 
IRBSV_EOF = 00000021 
IRB$V_RAHWBH = 0000002A 
IRBSW_10S2 = 0000000E 
IRBSW NRP_OFF = 00000044 
MAPBLRIALT Spo tEe R 01 
ABLS 00000151 R 01 
BUFF _OFF 00000149 R 01 
PIOSA_TRACE tererere = =X 8601 
$B-RAC $0000 1 
RABSC~ SEQ 000000 


SL 00000004 

RABS$V_RAH 00000009 
READARE AD 0000006A R 01 
RELEASE 00000063 R 01 
RMSAUTOEXTEND ttereene x 01 
RMSGE TBLKNRP 00000 RG 01 
RMSMAPBLK1 00001 RG 01 
RMSNXTBLK1 0000000 RG 01 
RMSQUIET SEQMBF eteeeeee xX ot 
RMS$R eeneeere x 1 
RMSSEQFLNKBDB eeeeeene ¥ ot 
RMSSEQRAH eteeenee xX 1 


SSEp19be 16:28:51 
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RMINXTBLK GET NEXT BLOCK FOR SEQUENTIAL FILE ORG 


Psect synopsis 


$mmeesroceae encase nce + 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
AB 00000000 ( 9. 0 ¢ 0.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD 
RMSRMS1 Q00001A6 ( 422.) . alten PIC USR CON REL GBL NOSHR EXE RD 
S$ 00000000 «¢ 0.) 02¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD 
two wen meme Cem emo cond 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization | $3 00: 00: 00-08 00:00:00.63 
Command processing 132 00:00:00.7 et eT Be 
Pass 1 282 00:00:08.37 00:00:23.30 
Symbol table sort 0 00:00:01.08 00:00:02.32 
Pass 2 109 00:00:02.02 00:00:06.11 
Symbol table output 9 00:00:00.09 00:00:00.19 
Psect synopsis output 2 00:00:00.03 00:00:00.05 
Cross-reference output 0 St SH 00:00:00.00 
Assembler run totals 571 00:00:12.44 00:00:38.01 


The working set Limit was 1350 pages. ; 

47211 bytes (93 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 858 non-local and 21 local symbols. 
559 source lines were read in Pass 1, producing 14 object records in Pass 2 

20 pages of virtual memory were used to define 19 macros. 


! Macro library statistics ! 
$e ee ne ee ee eee ee eS + 


Macros defined 


Macro Library name 


_$255$DUA28: RMS. OBJ IRMS MLB; 1 10 
“$255$DUA28: (SYS.OBJJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 5 
TOTALS (all Libraries) 15 


952 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMINXTBLK/OBJ=OBJ$:RMINXTBLK MSRC$:RMINXTBLK/UPDATE=(ENHS$:RMINXTBLK) +EXECML$/LIB+LIB$:RMS/LIB 


AX/VMS Macro v04-00 
RMS.SRCIJRMINXTBLK.MAR; 1 


NOWRT NOVEC BYTE 
NOWRT NOVEC QUAD 
WRT NOVEC BYTE 
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